// creator  : D:\Baldur's gate mods etc\app\NearInfinity.jar (v2.4-20240424)
// game     : D:\Baldur's gate mods etc\LOL Baldur's Gate II Enhanced Edition
// resource : WSMITH01.DLG
// source   : Override\WSMITH01.DLG
// dialog   : lang\en_US\dialog.tlk
// dialogF  : (none)

BEGIN ~WSMITH01~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #1 /* Triggers after states #: 74 even though they appear after this state */
~  NumTimesTalkedTo(0)
~ THEN BEGIN 0 // from:
  SAY #59654 /* ~Eh? Who's there? Some <GIRLBOY> <RACE> wanderin' in me smithy, I see. I rarely gets visitors, with the blisterin' heat and all... something I can do for ye, <GIRLBOY>?~ */
  IF ~~ THEN REPLY #59658 /* ~Who are you?~ */ GOTO 1
  IF ~~ THEN REPLY #59659 /* ~What do you have for sale here?~ */ GOTO 2
  IF ~~ THEN REPLY #59660 /* ~Well, you can stop calling me "<GIRLBOY>," for starters.~ */ GOTO 3
  IF ~~ THEN REPLY #59661 /* ~No thanks. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #59662 /* ~My name be Cromwell. Now mayhap ye'll tell me who ye are, aye?~ */
  IF ~  CheckStatGT(LastTalkedToBy,12,CHR)
~ THEN REPLY #59664 /* ~I am <GABBER>. Pleased to meet you.~ */ GOTO 5
  IF ~  CheckStatLT(LastTalkedToBy,13,CHR)
~ THEN REPLY #59665 /* ~I am <GABBER>, if you really must know.~ */ GOTO 6
  IF ~~ THEN REPLY #59667 /* ~You don't need to know my name, I'm sure.~ */ GOTO 7
  IF ~~ THEN REPLY #59668 /* ~Forget introductions, I just want to see what you have for sale.~ */ GOTO 2
END

IF ~~ THEN BEGIN 2 // from: 0.1 1.3 3.3 5.0 6.0 7.0 58.1
  SAY #59670 /* ~I be not selling ye anything. I be the finest blacksmith in Athkatla, and I works on commission only. I can make most anything ye desire.~ */
  IF ~~ THEN REPLY #59671 /* ~What sorts of things do you make?~ */ GOTO 8
  IF ~~ THEN REPLY #59672 /* ~Can you make magical armor and weapons and the like?~ */ GOTO 8
  IF ~~ THEN REPLY #59673 /* ~Well, I'll be on my way, then.~ */ GOTO 4
END

IF ~~ THEN BEGIN 3 // from: 0.2
  SAY #59676 /* ~As ye wish. I meant no offense by it, friend. Is there something else ye wish Cromwell to call ye by instead?~ */
  IF ~~ THEN REPLY #59677 /* ~I am <GABBER>. Pleased to meet you.~ */ GOTO 5
  IF ~~ THEN REPLY #59678 /* ~I am <GABBER>, if you really must know.~ */ GOTO 6
  IF ~~ THEN REPLY #59679 /* ~You don't need to know my name, I'm sure.~ */ GOTO 7
  IF ~~ THEN REPLY #59680 /* ~Forget introductions, I just want to see what you have for sale.~ */ GOTO 2
END

IF ~~ THEN BEGIN 4 // from: 0.3 2.2 5.2 6.3 7.3 9.2
  SAY #59681 /* ~Mind the mess on yer way out, <GIRLBOY>. Me apprentice just returned to Abdar, sure enough, and I've no patience for housekeeping.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from: 1.0 3.0
  SAY #59682 /* ~Aye. Welcome to me smithy, <GABBER>. Was there something that ye needed from an old dwarf, mayhap?~ */
  IF ~~ THEN REPLY #59683 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59684 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59685 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 6 // from: 1.1 3.1
  SAY #59687 /* ~Nay, I care not... but ye're in me smithy, and it be only polite. Now, <GABBER>... be there something ye need from an old dwarf, or does ye just like the smoke?~ */
  IF ~~ THEN REPLY #59688 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59689 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59690 /* ~And what if I said I only want to look around?~ */ GOTO 10
  IF ~~ THEN REPLY #59691 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 7 // from: 1.2 3.2
  SAY #59692 /* ~That be true, but it be me own smithy here, and you be the guest. But I care not. Mayhap ye'll tell me what ye wish from an old dwarf and be on yer way, aye?~ */
  IF ~~ THEN REPLY #59693 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59694 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59695 /* ~And what if I said I only want to look around?~ */ GOTO 10
  IF ~~ THEN REPLY #59696 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 8 // from: 2.0 2.1 5.1 6.1 7.1 58.0
  SAY #59697 /* ~I've made armor from the scales of a basilisk, a helmet from a cockatrice... items to put fear into the hearts of the bloody gods themselves. Hah! ~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCromwell","LOCALS",1)
~ GOTO 9
END

IF ~~ THEN BEGIN 9 // from: 8.0
  SAY #59698 /* ~All of me work be done from commissions. Give me the ingredients, and I can forge an item of power, sure enough. 'Tis a good living for a smith of me skills.~ */
  IF ~~ THEN REPLY #59699 /* ~Do I have anything you could forge into an item?~ */ GOTO 59
  IF ~~ THEN REPLY #59700 /* ~What sorts of things would you need in order to make something?~ */ GOTO 11
  IF ~~ THEN REPLY #59701 /* ~I suppose so. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 10 // from: 6.2 7.2
  SAY #59702 /* ~Well, that be your choice. There be only scrap metals an' such about... hardly something to interest ye, I'm sure, but ye can never tell about some folk.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11 // from: 9.1 58.2
  SAY #59703 /* ~Well now, that depends. Rare scales or husks, mayhap, or a magical metal I could forge. Even the pieces to a larger item can be repaired. My skills are many.~ */
  IF ~~ THEN REPLY #59704 /* ~Do I have anything you could forge into something, then?~ */ GOTO 59
  IF ~~ THEN REPLY #59705 /* ~I see. I'll be going, then.~ */ GOTO 12
END

IF ~~ THEN BEGIN 12 // from: 11.1 53.7 54.6 55.2 58.4
  SAY #59706 /* ~Another time, then, me friend. Cromwell wishes ye a fair journey.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13 // from: 65.0
  SAY #59707 /* ~Hmmm... I couldn't rightly say. Let me have a look into yer goods, then. A minute of rummagin' and I'll know fer sure, aye?~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 130
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 134
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 138
  IF ~  OR(2)
PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 142
  IF ~  PartyHasItem("dagg21")
~ THEN GOTO 146
END

IF ~~ THEN BEGIN 14 // from: 13.0 64.0 70.0 75.0 79.0 83.0 87.0 91.0 95.0 97.0 101.0 105.0 109.0 112.0 116.0 120.0 123.0 127.0 129.0 133.0 137.0 141.0 145.0 149.0
  SAY #59708 /* ~Hmm. Nay... nay. Ye've nothing amongst yer goods that I could work with. If ye come across anything interesting later, friend, ye knows where to come, aye?~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 15 // from: 13.1 64.1 70.1 75.1 79.1 83.1 87.1 91.1 95.1 97.1 101.1 105.1 109.1 112.1 116.1 120.1 123.1 127.1 129.1 133.1 137.1 141.1 145.1 149.1
  SAY #59709 /* ~Hmmm... what's this? Some kind of scale from a beastie, aye?~ */
  IF ~  PartyHasItem("scaleb")
~ THEN GOTO 16
  IF ~  !PartyHasItem("scaleb")
PartyHasItem("scaler")
~ THEN GOTO 17
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 18
END

IF ~~ THEN BEGIN 16 // from: 15.0
  SAY #59710 /* ~Aye, ye've collected the scales of a shadow dragon. By the Soul Forger, 'tis a grand sight. I can make a suit of armor from yon scales, if ye like.~ */
  IF ~~ THEN REPLY #59712 /* ~What would that involve?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",1)
~ GOTO 53
  IF ~  PartyHasItem("scaler")
~ THEN REPLY #59713 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 17
  IF ~  !PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN REPLY #59714 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 18
  IF ~  !PartyHasItem("scaler")
!PartyHasItem("misc12")
~ THEN REPLY #59715 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 19
END

IF ~~ THEN BEGIN 17 // from: 15.1 16.1 53.1
  SAY #59716 /* ~Ah! Scales from a red dragon, a beast of the Dread Flame. It shall make a grand suit of armor if ye wish, me friend. Does that hold yer interest?~ */
  IF ~~ THEN REPLY #59717 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",2)
~ GOTO 53
  IF ~  PartyHasItem("misc12")
~ THEN REPLY #59718 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 18
  IF ~  !PartyHasItem("misc12")
~ THEN REPLY #59719 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 19
END

IF ~~ THEN BEGIN 18 // from: 15.2 16.2 17.1 53.2 53.3
  SAY #59720 /* ~Hmmm. Ye've the husk of an ankheg, I see. A comrade in Beregost taught me to make a fine suit of armor from the beastie. Would ye like to commission a suit?~ */
  IF ~~ THEN REPLY #59721 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",3)
~ GOTO 53
  IF ~~ THEN REPLY #59722 /* ~I don't think so. Do I have anything else of interest?~ */ GOTO 19
END

IF ~~ THEN BEGIN 19 // from: 16.3 17.2 18.1 53.4 53.5 53.6
  SAY #59723 /* ~I'll take another look for meself here. Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 20 // from: 13.2 19.0 64.2 70.2 75.2 79.2 83.2 87.2 91.2 95.2 97.2 101.2 105.2 109.2 112.2 116.2 120.2 123.2 127.2 129.2 133.2 137.2 141.2 145.2 149.2
  SAY #59724 /* ~Aye now, what have we here?~ */
  IF ~  PartyHasItem("scrlag")
!PartyHasItem("hamm07")
~ THEN GOTO 21
  IF ~  !PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 24
  IF ~  PartyHasItem("scrlag")
PartyHasItem("hamm07")
OR(2)
!PartyHasItem("brac06")
!PartyHasItem("belt08")
~ THEN GOTO 25
  IF ~  PartyHasItem("scrlag")
PartyHasItem("hamm07")
PartyHasItem("brac06")
PartyHasItem("belt08")
~ THEN GOTO 26
END

IF ~~ THEN BEGIN 21 // from: 20.0
  SAY #59725 /* ~Ye've a scroll with the true name of the thunderhammer, Crom Faeyr. Had ye a hammer of thunderbolts, gauntlets of ogre power, and a girdle of frost giant strength, I could combine 'em and forge it.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 22 // from: 21.0 24.0 25.0
  SAY #59726 /* ~But ye don't, so I cannae help ye. If ye can collect the scroll and all three items later, keep them on hand. Crom Faeyr is worth the effort, my friend.~ */
  IF ~~ THEN GOTO 23
END

IF ~~ THEN BEGIN 23 // from: 22.0 27.1 55.1
  SAY #59727 /* ~Let me see if ye've anything else in yer packs now...~ */
  IF ~  OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 24 // from: 20.1
  SAY #59728 /* ~I see ye've the hammer of thunderbolts? Had ye gauntlets of ogre power, a girdle of frost giant strength, and scroll with the thunderhammer's true name, I could forge a mighty weapon.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 25 // from: 20.2
  SAY #59730 /* ~Ah, ye've a hammer of thunderbolts and a scroll with the true name of the thunderhammer, Crom Faeyr. If ye had gauntlets of ogre power and a girdle of frost giant strength, I could forge the great weapon.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 26 // from: 20.3
  SAY #59731 /* ~Hmm... Ye've a hammer of thunderbolts, gauntlets of ogre power, a girdle of frost giant strength, and a scroll with the thunderhammer's true name... Crom Faeyr.~ */
  IF ~~ THEN GOTO 27
END

IF ~~ THEN BEGIN 27 // from: 26.0
  SAY #59732 /* ~ 'Tis a collection that would widen the eyes of the Soul Forger himself. I could create the Crom Faeyr for ye, friend... if ye've the interest, of course.~ */
  IF ~~ THEN REPLY #59733 /* ~What would that involve?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",4)
~ GOTO 55
  IF ~~ THEN REPLY #59734 /* ~No, I don't think so. Do I have anything else of interest?~ */ GOTO 23
END

IF ~~ THEN BEGIN 28 // from: 13.3 19.1 23.0 64.3 70.3 75.3 79.3 83.3 87.3 91.3 95.3 97.3 101.3 105.3 109.3 112.3 116.3 120.3 123.3 127.3 129.3 133.3 137.3 141.3 145.3 149.3
  SAY #59735 /* ~Eh? Ye've part of some sword here, is it? Let me see...~ */
  IF ~  PartyHasItem("sw1h54a")
OR(2)
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
~ THEN GOTO 29
  IF ~  PartyHasItem("sw1h54b")
OR(2)
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54c")
~ THEN GOTO 30
  IF ~  PartyHasItem("sw1h54c")
OR(2)
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54a")
~ THEN GOTO 31
  IF ~  PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 32
END

IF ~~ THEN BEGIN 29 // from: 28.0
  SAY #59736 /* ~Well, ye've the hilt of a sword here, but I would need both the blade and the pommel gem in order to forge it into one piece. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 30 // from: 28.1
  SAY #59737 /* ~Well, ye've the blade of a sword here indeed. But I would need both its pommel gem and the sword's hilt in order to forge it into one piece for ye. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 31 // from: 28.2
  SAY #59738 /* ~Hmmm. A pretty enough pommel gem, but without the blade or the hilt of the weapon, I cannae forge it into one piece for ye. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 32 // from: 28.3
  SAY #59739 /* ~Hmmm... I see. Ye've a hilt and a blade here for a long sword. And a pommel gem with much of its power. I could forge it all into one mighty sword for ye.~ */
  IF ~~ THEN REPLY #59740 /* ~What would be involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",5)
~ GOTO 54
  IF ~~ THEN REPLY #59741 /* ~No, I'm not interested in that. Anything else of use?~ */ GOTO 33
END

IF ~~ THEN BEGIN 33 // from: 29.0 30.0 31.0 32.1 54.1
  SAY #59742 /* ~Well, what else does ye have in yer packs, then? Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 34 // from: 13.4 19.2 23.1 33.0 64.4 70.4 75.4 79.4 83.4 87.4 91.4 95.4 97.4 101.4 105.4 109.4 112.4 116.4 120.4 123.4 127.4 129.4 133.4 137.4 141.4 145.4 149.4
  SAY #59743 /* ~Hmmm. What's this, then? Part of a bow? Looks like Gesen's work...~ */
  IF ~  PartyHasItem("bow19a")
!PartyHasItem("bow19b")
~ THEN GOTO 35
  IF ~  !PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 36
  IF ~  PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 37
END

IF ~~ THEN BEGIN 35 // from: 34.0
  SAY #59744 /* ~Ach, ye've a shaft that's been created by the great bowyer Gesen, but ye haven't Gesen's proper string. Find that and I can reforge the bow for ye.~ */
  IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 36 // from: 34.1
  SAY #59745 /* ~Ach, ye've a proper string made by the great bowyer Gesen. But not his shaft. If ye find the shaft, bring it to me, and I'll reforge the bow entire for ye.~ */
  IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 37 // from: 34.2
  SAY #59746 /* ~Hmmm. Aye, 'tis Gesen's work indeed. A string and a shaft both. I could remake one of the great bowyer's shortbows for ye. 'Tis a truly powerful weapon.~ */
  IF ~~ THEN REPLY #59747 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",6)
~ GOTO 54
  IF ~~ THEN REPLY #59748 /* ~No, I don't think so. Do I have anything else of use?~ */ GOTO 38
END

IF ~~ THEN BEGIN 38 // from: 35.0 36.0 37.1 54.2
  SAY #59749 /* ~I'll keep looking here, me friend. Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 39 // from: 13.5 19.3 23.2 33.1 38.0 64.5 70.5 75.5 79.5 83.5 87.5 91.5 95.5 97.5 101.5 105.5 109.5 112.5 116.5 120.5 123.5 127.5 129.5 133.5 137.5 141.5 145.5 149.5
  SAY #59750 /* ~Hmmm... hmmm... aye. Aye now, this looks interesting...~ */
  IF ~  PartyHasItem("halb09a")
!PartyHasItem("halb09b")
~ THEN GOTO 40
  IF ~  !PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 41
  IF ~  PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 42
END

IF ~~ THEN BEGIN 40 // from: 39.0
  SAY #59751 /* ~Ye've the shaft of what was once a powerful halberd. If ye finds the blade for it, I could reforge the old weapon without much fuss.~ */
  IF ~~ THEN GOTO 43
END

IF ~~ THEN BEGIN 41 // from: 39.1
  SAY #59752 /* ~Ye've a blade here fer a mighty halberd. It seems t' have power of water... odd. If ye can find the accompanying shaft, I can forge it together for ye.~ */
  IF ~~ THEN GOTO 43
END

IF ~~ THEN BEGIN 42 // from: 39.2
  SAY #59753 /* ~Hmmm... ye've the shaft and blade of a halberd. Power of water in its elemental magic. Most interesting. If ye like, I could try to reforge it for ye.~ */
  IF ~~ THEN REPLY #59754 /* ~What would be involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",7)
~ GOTO 54
  IF ~~ THEN REPLY #59755 /* ~No, I'm not interested. Anything else of use?~ */ GOTO 43
END

IF ~~ THEN BEGIN 43 // from: 40.0 41.0 42.1 54.3
  SAY #59756 /* ~Quite a mess ye have here. Traveling for some time, eh? Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 44 // from: 13.6 19.4 23.3 33.2 38.1 43.0 64.6 70.6 75.6 79.6 83.6 87.6 91.6 95.6 97.6 101.6 105.6 109.6 112.6 116.6 120.6 123.6 127.6 129.6 133.6 137.6 141.6 145.6 149.6
  SAY #59757 /* ~ 'Ey? What's this? Gith craftsmanship? Haven't seen this in o'er a century...~ */
  IF ~  PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
~ THEN GOTO 45
  IF ~  !PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 46
  IF ~  PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 47
END

IF ~~ THEN BEGIN 45 // from: 44.0
  SAY #59758 /* ~Well... it seems ye've the blade of a Silver Sword here. Not much good without the hilt though. Best be wary... the gith won't be pleased if they catch ye with this.~ */
  IF ~~ THEN GOTO 48
END

IF ~~ THEN BEGIN 46 // from: 44.1
  SAY #59759 /* ~Well... ye've the hilt of a Silver Sword, but without the blade to match, I cannae help ye. Best be wary, too... the gith won't be pleased if they catch ye with this.~ */
  IF ~~ THEN GOTO 48
END

IF ~~ THEN BEGIN 47 // from: 44.2
  SAY #59760 /* ~Aye. Ye've the hilt and blade of a vorpal Silver Sword. If ye're willing to risk the wrath of the gith, I'm willing to put it back together for ye.~ */
  IF ~~ THEN REPLY #59761 /* ~What would be involved with that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",8)
~ GOTO 54
  IF ~~ THEN REPLY #59762 /* ~I don't think so. Do I have anything else of use?~ */ GOTO 48
END

IF ~~ THEN BEGIN 48 // from: 45.0 46.0 47.1 54.4
  SAY #59763 /* ~I'll keep looking. Hmmm... I see...~ */
  IF ~  PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 49 // from: 13.7 19.5 23.4 33.3 38.2 43.1 48.0 64.7 70.7 75.7 79.7 83.7 87.7 91.7 95.7 97.7 101.7 105.7 109.7 112.7 116.7 120.7 123.7 127.7 129.7 133.7 137.7 141.7 145.7 149.7
  SAY #59764 /* ~Aye now... this could be something here. Some kind of metal, eh? Let me see...~ */
  IF ~  !PartyHasItem("blun12")
~ THEN GOTO 50
  IF ~  PartyHasItem("blun12")
~ THEN GOTO 51
END

IF ~~ THEN BEGIN 50 // from: 49.0
  SAY #59765 /* ~It be illithium, aye? A rare metal indeed. If ye ever get ahold of a mace of disruption, a coating of illithium would improve it vastly.~ */
  IF ~~ THEN GOTO 52
END

IF ~~ THEN BEGIN 51 // from: 49.1
  SAY #59766 /* ~Ye've illithium there, aye? And a mace of disruption as well. I could apply a coating to yer mace and improve it greatly, giving ye more protection from the undead.~ */
  IF ~~ THEN REPLY #59767 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",9)
~ GOTO 54
  IF ~~ THEN REPLY #59768 /* ~No, I don't think so. Anything else of use?~ */ GOTO 52
END

IF ~~ THEN BEGIN 52 // from: 19.6 23.5 33.4 38.3 43.2 48.1 50.0 51.1 54.5
  SAY #59769 /* ~Nay... nay, I see nothing else here that could be of use in the forge. Perhaps another time then, me friend.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 53 // from: 16.0 17.0 18.0
  SAY #59771 /* ~Two things, me friend. It will cost ye 5,000 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #59775 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(5000)
DestroyGold(5000)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",1)
PartyHasItem("scaler")
~ THEN REPLY #59777 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 17
  IF ~  Global("ForgeItem","GLOBAL",1)
!PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN REPLY #59779 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 18
  IF ~  Global("ForgeItem","GLOBAL",2)
PartyHasItem("misc12")
~ THEN REPLY #59780 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 18
  IF ~  Global("ForgeItem","GLOBAL",3)
~ THEN REPLY #59781 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~  Global("ForgeItem","GLOBAL",1)
!PartyHasItem("scaler")
!PartyHasItem("misc12")
~ THEN REPLY #59782 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~  Global("ForgeItem","GLOBAL",2)
!PartyHasItem("misc12")
~ THEN REPLY #59783 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~~ THEN REPLY #59778 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 54 // from: 32.0 37.0 42.0 47.0 51.0
  SAY #59784 /* ~Two things, me friend. It will cost ye 7,500 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #59785 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(7500)
DestroyGold(7500)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",5)
~ THEN REPLY #59786 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 33
  IF ~  Global("ForgeItem","GLOBAL",6)
~ THEN REPLY #59787 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 38
  IF ~  Global("ForgeItem","GLOBAL",7)
~ THEN REPLY #59788 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 43
  IF ~  Global("ForgeItem","GLOBAL",8)
~ THEN REPLY #59789 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 48
  IF ~  Global("ForgeItem","GLOBAL",9)
~ THEN REPLY #59790 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 52
  IF ~~ THEN REPLY #59791 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 55 // from: 27.0
  SAY #59792 /* ~Two things, me friend. It will cost ye 10,000 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #59793 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(10000)
DestroyGold(10000)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",4)
~ THEN REPLY #59794 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 23
  IF ~~ THEN REPLY #59795 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 56 // from: 53.0 54.0 55.0 63.1 69.1 73.1 78.1 82.1 86.1 90.1 94.1 96.1 100.1 104.1 108.1 111.1 115.1 119.1 119.2 119.3 122.1 126.1 128.1 132.1 136.1 140.1 144.1 148.1
  SAY #59796 /* ~As ye wish. Fer such a commission, we can start on it right away. No sense in wasting time, then... it be best if we just get to it.~ */
  IF ~~ THEN DO ~StartCutSceneMode()
StartCutSceneEx("cromwell",FALSE)
~ EXIT
END

IF WEIGHT #2 /* Triggers after states #: 74 even though they appear after this state */
~  GlobalGT("ForgeItem","GLOBAL",0)
~ THEN BEGIN 57 // from:
  SAY #59797 /* ~Well, there ye go, me friend. Use it well. And if ye comes across anything else of interest, ye knows where to bring it, aye?~ */
  IF ~~ THEN DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ EXIT
END

IF WEIGHT #3 /* Triggers after states #: 74 even though they appear after this state */
~  Global("ForgeItem","GLOBAL",0)
~ THEN BEGIN 58 // from:
  SAY #59798 /* ~A good <DAYNIGHTALL> to ye, me friend. Good to see ye back in me forge, it is. Be there something that ye need?~ */
  IF ~  Global("TalkedToCromwell","LOCALS",0)
~ THEN REPLY #59803 /* ~What sorts of things do you forge here?~ */ GOTO 8
  IF ~  Global("TalkedToCromwell","LOCALS",0)
~ THEN REPLY #59799 /* ~What do you have for sale here?~ */ GOTO 2
  IF ~  Global("TalkedToCromwell","LOCALS",1)
~ THEN REPLY #59800 /* ~What sorts of things would you need in order to make something?~ */ GOTO 11
  IF ~  Global("TalkedToCromwell","LOCALS",1)
~ THEN REPLY #59801 /* ~Do I have anything you could forge into an item?~ */ GOTO 59
  IF ~~ THEN REPLY #59802 /* ~No, I don't think so.~ */ GOTO 12
END

IF ~~ THEN BEGIN 59 // from: 9.0 11.0 58.3 60.0
  SAY #59707 /* ~Hmmm... I couldn't rightly say. Let me have a look into yer goods, then. A minute of rummagin' and I'll know fer sure, aye?~ */
  IF ~~ THEN REPLY #93447 /* ~Get on with it, then.~ */ GOTO 65
  IF ~  PartyHasItem("bdhelm16")
~ THEN REPLY #104008 /* ~Can you combine something together with this Circlet of lost souls?~ */ GOTO 60
  IF ~~ THEN REPLY #992 /* ~There is nothing I want here. Goodbye.~ */ EXIT
END

IF ~~ THEN BEGIN 60 // from: 59.1
  SAY #104009 /* ~Aye, I could combine together Circlet of the lost souls with the Helm of Vailor, but I need 15,000 gold for the job.~ */
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 59
  IF ~  PartyHasItem("bdhelm16")
PartyHasItem("WA2HELM")
PartyGoldGT(14999)
~ THEN REPLY #104010 /* ~Yes, let's do it!~ */ DO ~TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdhelm16",1)
DestroyItem("bdhelm16")
TakePartyItemNum("WA2HELM",1)
DestroyItem("WA2HELM")
GiveItemCreate("Gehelm16",Player1,1,1,1)
CreateVisualEffect("spcrtwpn",[401.348])
~ EXIT
END

IF ~~ THEN BEGIN 61 // from: 13.8 70.8 75.8 79.8 83.8 87.8 91.8 95.8 97.8 101.8 105.8 109.8 112.8 116.8 120.8 123.8 127.8 129.8 133.8 137.8 141.8 145.8 149.8
  SAY #104011 /* ~Ah I see you have some parts for Circlet of Soul Control, it requires the Vailor's Helm and the Circlet of the lost souls which i can combine for 15000 gold~ */
  IF ~  PartyHasItem("bdhelm16")
!PartyHasItem("WA2HELM")
~ THEN GOTO 62
  IF ~  PartyHasItem("bdhelm16")
PartyHasItem("WA2HELM")
~ THEN GOTO 63
END

IF ~~ THEN BEGIN 62 // from: 61.0
  SAY #104012 /* ~Looks like your missing one of the parts still. So I cannot upgrade them for you now~ */
  IF ~~ THEN GOTO 64
END

IF ~~ THEN BEGIN 63 // from: 61.1
  SAY #104013 /* ~Seems like you have both the parts needed for me to combine them~ */
  IF ~  PartyGoldLT(15000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 64
  IF ~  PartyGoldGT(14999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("GelItemUp","ar0334",2)
SetGlobal("ForgeItem","GLOBAL",1)
TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdhelm16",1)
DestroyItem("bdhelm16")
TakePartyItemNum("WA2HELM",1)
DestroyItem("WA2HELM")
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 64
END

IF ~~ THEN BEGIN 64 // from: 62.0 63.0 63.2
  SAY #104014 /* ~Okay lad.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
END

IF ~~ THEN BEGIN 65 // from: 59.0 66.0
  SAY #59707 /* ~Hmmm... I couldn't rightly say. Let me have a look into yer goods, then. A minute of rummagin' and I'll know fer sure, aye?~ */
  IF ~~ THEN REPLY #93447 /* ~Get on with it, then.~ */ GOTO 13
  IF ~  PartyHasItem("bdbrac05")
~ THEN REPLY #104049 /* ~Can you combine something together with these Stalker Gauntlets?~ */ GOTO 66
  IF ~~ THEN REPLY #992 /* ~There is nothing I want here. Goodbye.~ */ EXIT
END

IF ~~ THEN BEGIN 66 // from: 65.1
  SAY #104050 /* ~Aye, I could combine together Stalker Gauntlets with a Ankheg Shell, but I need 10,000 gold for the job.~ */
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 65
  IF ~  PartyHasItem("bdbrac05")
PartyHasItem("MISC12")
PartyGoldGT(9999)
~ THEN REPLY #104010 /* ~Yes, let's do it!~ */ DO ~TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdbrac05",1)
DestroyItem("bdbrac05")
TakePartyItemNum("MISC12",1)
DestroyItem("MISC12")
GiveItemCreate("Gebrac05",Player1,1,1,1)
CreateVisualEffect("spcrtwpn",[401.348])
~ EXIT
END

IF ~~ THEN BEGIN 67 // from: 13.9 75.9 79.9 83.9 87.9 91.9 95.9 97.9 101.9 105.9 109.9 112.9 116.9 120.9 123.9 127.9 129.9 133.9 137.9 141.9 145.9 149.9
  SAY #104051 /* ~Ah I see you have some parts for Ankheg Plated Stalker Gaunlets, it requires a ankheg shell and the Stalker Gauntlets which i can combine for 15000 gold~ */
  IF ~  PartyHasItem("bdbrac05")
!PartyHasItem("MISC12")
~ THEN GOTO 68
  IF ~  PartyHasItem("bdbrac05")
PartyHasItem("MISC12")
~ THEN GOTO 69
END

IF ~~ THEN BEGIN 68 // from: 67.0
  SAY #104012 /* ~Looks like your missing one of the parts still. So I cannot upgrade them for you now~ */
  IF ~~ THEN GOTO 70
END

IF ~~ THEN BEGIN 69 // from: 67.1
  SAY #104013 /* ~Seems like you have both the parts needed for me to combine them~ */
  IF ~  PartyGoldLT(15000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 70
  IF ~  PartyGoldGT(14999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("GelItemUp","ar0334",1)
SetGlobal("ForgeItem","GLOBAL",1)
TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdbrac05",1)
DestroyItem("bdbrac05")
TakePartyItemNum("MISC12",1)
DestroyItem("MISC12")
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 70
END

IF ~~ THEN BEGIN 70 // from: 68.0 69.0 69.2
  SAY #104014 /* ~Okay lad.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
END

IF ~~ THEN BEGIN 71 // from: 13.10 79.10 83.10 87.10 91.10 95.10 97.10 101.10 105.10 109.10 112.10 116.10 120.10 123.10 127.10 129.10 133.10 137.10 141.10 145.10 149.10
  SAY #104920 /* ~Hmmm... aye, now, this looks interesting...~ */
  IF ~  PartyHasItem("RR#BUC01")
!PartyHasItem("KEY23")
~ THEN GOTO 72
  IF ~  PartyHasItem("RR#BUC01")
PartyHasItem("KEY23")
~ THEN GOTO 73
END

IF ~~ THEN BEGIN 72 // from: 71.0
  SAY #104921 /* ~That ol' battered buckler ye're holdin' was once a mighty relic that belonged to a high priest of Amaunator, if me eyes don't be deceiving me. In case ye somehow stumble upon a holy symbol of the lost sun god, I could infuse the shield with its essence and restore some of the relic's old power.~ */
  IF ~~ THEN GOTO 75
END

IF ~~ THEN BEGIN 73 // from: 71.1
  SAY #104922 /* ~Ye have the old relic of Amaunator and the sun god's holy symbol. For 7,500 gold, I could try to fuse them together for ye.~ */
  IF ~  PartyGoldLT(7500)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 75
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",1)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(7500)
TakePartyItemNum("RR#BUC01",1)
DestroyItem("RR#BUC01")
TakePartyItemNum("KEY23",1)
DestroyItem("KEY23")
DestroyGold(7500)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 75
END

IF WEIGHT #0 ~  GlobalGT("RR#Craft","ar0334",0)
~ THEN BEGIN 74 // from:
  SAY #59797 /* ~Well, there ye go, me friend. Use it well. And if ye comes across anything else of interest, ye knows where to bring it, aye?~ */
  IF ~~ THEN DO ~SetGlobal("RR#Craft","ar0334",0)
~ EXIT
END

IF ~~ THEN BEGIN 75 // from: 72.0 73.0 73.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
END

IF ~~ THEN BEGIN 76 // from: 13.11 83.11 87.11 91.11 95.11 97.11 101.11 105.11 109.11 112.11 116.11 120.11 123.11 127.11 129.11 133.11 137.11 141.11 145.11 149.11
  SAY #104924 /* ~Hmph, I reckon something could be done with that puny dart of yers. Let me see...~ */
  IF ~  PartyHasItem("RR#FDART")
!PartyHasItem("MISCAL")
~ THEN GOTO 77
  IF ~  PartyHasItem("RR#FDART")
PartyHasItem("MISCAL")
~ THEN GOTO 78
END

IF ~~ THEN BEGIN 77 // from: 76.0
  SAY #104925 /* ~If ye ever get yer hands on some mithral, I could use it to coat the dart's tip and make it a wee bit stronger. Even a small piece will do.~ */
  IF ~~ THEN GOTO 79
END

IF ~~ THEN BEGIN 78 // from: 76.1
  SAY #104926 /* ~Ach, ye have a mithral piece! For 5,000 gold I could use it to coat the tip of that dart ye're holdin' and make it a wee bit stronger. Well, what say ye?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 79
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",2)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#FDART",1)
DestroyItem("RR#FDART")
TakePartyItemNum("MISCAL",1)
DestroyItem("MISCAL")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 79
END

IF ~~ THEN BEGIN 79 // from: 77.0 78.0 78.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
END

IF ~~ THEN BEGIN 80 // from: 13.12 87.12 91.12 95.12 97.12 101.12 105.12 109.12 112.12 116.12 120.12 123.12 127.12 129.12 133.12 137.12 141.12 145.12 149.12
  SAY #104927 /* ~Ye've a fancy sword there, <GIRLBOY>. Kara-Tur craftmanship, aye? Let me take a look...~ */
  IF ~  PartyHasItem("RR#KEEP")
!PartyHasItem("MISC9Y")
~ THEN GOTO 81
  IF ~  PartyHasItem("RR#KEEP")
PartyHasItem("MISC9Y")
~ THEN GOTO 82
END

IF ~~ THEN BEGIN 81 // from: 80.0
  SAY #104928 /* ~Hmm... the craft be truly flawless, I cannae do much 'bout that. Still, I could strengthen the anti-chaos enchantments on the blade if ye ever get ahold of some Illithid brine water.~ */
  IF ~~ THEN GOTO 83
END

IF ~~ THEN BEGIN 82 // from: 80.1
  SAY #104929 /* ~Ay, now... ye found some Illithid brine water, didn't ye? Well, fer 5,000 gold I could use that to bolster the axiomatic enchantments on that fancy Kara-Tur blade of yers. Are ye interested?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 83
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",3)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#KEEP",1)
DestroyItem("RR#KEEP")
TakePartyItemNum("MISC9Y",1)
DestroyItem("MISC9Y")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 83
END

IF ~~ THEN BEGIN 83 // from: 81.0 82.0 82.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
END

IF ~~ THEN BEGIN 84 // from: 13.13 91.13 95.13 97.13 101.13 105.13 109.13 112.13 116.13 120.13 123.13 127.13 129.13 133.13 137.13 141.13 145.13 149.13
  SAY #104930 /* ~Eh, what have ye got there? A club of some sort? Let's see...~ */
  IF ~  PartyHasItem("RR#WEAR")
!PartyHasItem("MISC6Z")
~ THEN GOTO 85
  IF ~  PartyHasItem("RR#WEAR")
PartyHasItem("MISC6Z")
~ THEN GOTO 86
END

IF ~~ THEN BEGIN 85 // from: 84.0
  SAY #104931 /* ~Uthgardt craftsmanship? Aye, though it looks unfinished. Hmm... if ye can get me a Beljuril gem, I might be able to do something about that.~ */
  IF ~~ THEN GOTO 87
END

IF ~~ THEN BEGIN 86 // from: 84.1
  SAY #104932 /* ~Ye've found a Beljuril gem, aye? For 5,000 gold I could use it to finish the enchantments on that club of yers. What say ye, <GIRLBOY>?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 87
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",4)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#WEAR",1)
DestroyItem("RR#WEAR")
TakePartyItemNum("MISC6Z",1)
DestroyItem("MISC6Z")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 87
END

IF ~~ THEN BEGIN 87 // from: 85.0 86.0 86.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
END

IF ~~ THEN BEGIN 88 // from: 13.14 95.14 97.14 101.14 105.14 109.14 112.14 116.14 120.14 123.14 127.14 129.14 133.14 137.14 141.14 145.14 149.14
  SAY #104933 /* ~That's a fairly sturdy buckler ye got there. Made of darksteel eh? Let me see that up close...~ */
  IF ~  PartyHasItem("RR#RWARD")
OR(2)
!PartyHasItem("DWDUST")
!PartyHasItem("MISC45")
~ THEN GOTO 89
  IF ~  PartyHasItem("RR#RWARD")
PartyHasItem("DWDUST")
PartyHasItem("MISC45")
~ THEN GOTO 90
END

IF ~~ THEN BEGIN 89 // from: 88.0
  SAY #104934 /* ~Oy, if ye can get me a Rogue Stone and some adamantine dust, I could strengthen the darksteel alloy a bit.~ */
  IF ~~ THEN GOTO 91
END

IF ~~ THEN BEGIN 90 // from: 88.1
  SAY #104935 /* ~Ye have a Rogue Stone and some adamantine dust! For 5,000 gold I could use that to strengthen yer darksteel buckler. I reckon ye're interested?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 91
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",5)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#RWARD",1)
DestroyItem("RR#RWARD")
TakePartyItemNum("DWDUST",1)
DestroyItem("DWDUST")
TakePartyItemNum("MISC45",1)
DestroyItem("MISC45")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 91
END

IF ~~ THEN BEGIN 91 // from: 89.0 90.0 90.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
END

IF ~~ THEN BEGIN 92 // from: 13.15 97.15 101.15 105.15 109.15 112.15 116.15 120.15 123.15 127.15 129.15 133.15 137.15 141.15 145.15 149.15
  SAY #104936 /* ~What's that yer holding <GIRLBOY>? Hmm, that be no ordinary club. Pass it to me, will ye?~ */
  IF ~  PartyHasItem("RR#STON")
!PartyHasItem("BOOK90")
~ THEN GOTO 93
  IF ~  PartyHasItem("RR#STON")
PartyHasItem("BOOK90")
~ THEN GOTO 94
END

IF ~~ THEN BEGIN 93 // from: 92.0
  SAY #104937 /* ~Orc made, eh? Aye, looks sturdy, but them scrawly runes could use some work. If ye can get me a Golem Building Book, I reckon I could strengthen 'em a wee bit.~ */
  IF ~~ THEN GOTO 95
END

IF ~~ THEN BEGIN 94 // from: 92.1
  SAY #104938 /* ~Ye found a Golem Building Book, eh? For 5,000 gold I could use it to strengthen the runes on that club of yers. Provided ye're interested, of course.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 95
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",6)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#STON",1)
DestroyItem("RR#STON")
TakePartyItemNum("BOOK90",1)
DestroyItem("BOOK90")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 95
END

IF ~~ THEN BEGIN 95 // from: 93.0 94.0 94.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
END

IF ~~ THEN BEGIN 96 // from: 13.16 101.16 105.16 109.16 112.16 116.16 120.16 123.16 127.16 129.16 133.16 137.16 141.16 145.16 149.16
  SAY #105480 /* ~Ah, a Case of Plenty. I can enchant this to produce even stronger bolts, but it'll cost ye. 5,000 gold it is.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #70892 /* ~I don't have that much gold.~ */ GOTO 97
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #70893 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",1)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("quiver02",1)
DestroyGold(5000)
DestroyItem("quiver02")
~ GOTO 56
  IF ~~ THEN REPLY #70894 /* ~No, I don't want that.~ */ GOTO 97
END

IF ~~ THEN BEGIN 97 // from: 96.0 96.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
END

IF ~~ THEN BEGIN 98 // from: 13.17 105.17 109.17 112.17 116.17 120.17 123.17 127.17 129.17 133.17 137.17 141.17 145.17 149.17
  SAY #105481 /* ~A thieves hood, aye?~ */
  IF ~  OR(2)
!PartyHasItem("ring05")
!PartyHasItem("potn20")
~ THEN GOTO 99
  IF ~  PartyHasItem("ring05")
PartyHasItem("potn20")
~ THEN GOTO 100
END

IF ~~ THEN BEGIN 99 // from: 98.0
  SAY #105482 /* ~With a bottle of antidote and an invisibility ring, this can be dead useful.~ */
  IF ~~ THEN GOTO 101
END

IF ~~ THEN BEGIN 100 // from: 98.1
  SAY #105483 /* ~There's a ring of invisibility alright... and an antidote. Ye got everything I need. For 10,000 gold I can make this much more powerful.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #67011 /* ~I don't have enough gold.~ */ GOTO 101
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #67012 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",2)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("helm29",1)
TakePartyItemNum("ring05",1)
TakePartyItemNum("potn20",1)
DestroyItem("potn20")
DestroyItem("ring05")
DestroyItem("helm29")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #67013 /* ~No. What else?~ */ GOTO 101
END

IF ~~ THEN BEGIN 101 // from: 99.0 100.0 100.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
END

IF ~~ THEN BEGIN 102 // from: 13.18 109.18 112.18 116.18 120.18 123.18 127.18 129.18 133.18 137.18 141.18 145.18 149.18
  SAY #105484 /* ~What's this, then?~ */
  IF ~  OR(3)
!PartyHasItem("helm31")
!PartyHasItem("compon12")
!PartyHasItem("compon13")
~ THEN GOTO 103
  IF ~  PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 104
END

IF ~~ THEN BEGIN 103 // from: 102.0
  SAY #105485 /* ~I have a recipe to attach two horns to a Helm of the Rock, making it more powerful. When you've got the pieces, I can make it for ye.~ */
  IF ~~ THEN GOTO 105
END

IF ~~ THEN BEGIN 104 // from: 102.1
  SAY #105486 /* ~You have the Helm of the Rock, and two horns that attach to it. For 5,000 gold I can attach the Horns, making a great helmet for fighters.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #67003 /* ~I don't have that much gold.~ */ GOTO 105
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #67004 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",3)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("helm31",1)
DestroyItem("helm31")
TakePartyItemNum("compon12",1)
DestroyItem("compon12")
TakePartyItemNum("compon13",1)
DestroyItem("compon13")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #67005 /* ~No. What else?~ */ GOTO 105
END

IF ~~ THEN BEGIN 105 // from: 103.0 104.0 104.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
END

IF ~~ THEN BEGIN 106 // from: 13.19 112.19 116.19 120.19 123.19 127.19 129.19 133.19 137.19 141.19 145.19 149.19
  SAY #105487 /* ~These are Bard Gloves.~ */
  IF ~  OR(4)
!PartyHasItem("misc43")
!PartyHasItem("misc42")
!PartyHasItem("misc41")
!PartyHasItem("misc45")
~ THEN GOTO 107
  IF ~  PartyHasItem("misc43")
PartyHasItem("misc42")
PartyHasItem("misc41")
PartyHasItem("misc45")
~ THEN GOTO 108
END

IF ~~ THEN BEGIN 107 // from: 106.0
  SAY #105488 /* ~With some crushed gems, these can be improved. Bring me a diamond, emerald, rogue stone, and star sapphire and I can do it for ye.~ */
  IF ~~ THEN GOTO 109
END

IF ~~ THEN BEGIN 108 // from: 106.1
  SAY #105489 /* ~By crushing a diamond, emerald, star sapphire, and rogue stone I can improve these. It'll cost you 5,000 gold.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66990 /* ~I don't have that much gold.~ */ GOTO 109
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66991 /* ~Go ahead and make it, then.~ */ DO ~SetGlobal("CDItems","ar0334",4)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("brac24",1)
DestroyItem("brac24")
TakePartyItemNum("misc41",1)
DestroyItem("misc41")
TakePartyItemNum("misc42",1)
DestroyItem("misc42")
TakePartyItemNum("misc43",1)
DestroyItem("misc43")
TakePartyItemNum("misc45",1)
DestroyItem("misc45")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66992 /* ~Never mind. What else?~ */ GOTO 109
END

IF ~~ THEN BEGIN 109 // from: 107.0 108.0 108.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
END

IF ~~ THEN BEGIN 110 // from: 13.20 116.20 120.20 123.20 127.20 129.20 133.20 137.20 141.20 145.20 149.20
  SAY #105490 /* ~These are bracers for a paladin.~ */
  IF ~~ THEN GOTO 111
END

IF ~~ THEN BEGIN 111 // from: 110.0
  SAY #105491 /* ~For 10,000 gold, I can re-forge these into something even better.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #66983 /* ~I don't have enough gold.~ */ GOTO 112
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #66984 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",5)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("brac22",1)
DestroyItem("brac22")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #66985 /* ~No. What else?~ */ GOTO 112
END

IF ~~ THEN BEGIN 112 // from: 111.0 111.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
END

IF ~~ THEN BEGIN 113 // from: 13.21 120.21 123.21 127.21 129.21 133.21 137.21 141.21 145.21 149.21
  SAY #105492 /* ~Hmm, an old golem manual.~ */
  IF ~~ THEN GOTO 114
  IF ~  PartyHasItem("tome01")
PartyHasItem("tome02a")
~ THEN GOTO 115
END

IF ~~ THEN BEGIN 114 // from: 113.0
  SAY #105493 /* ~With certain pages, you can improve the golems summoned by these books.~ */
  IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 115 // from: 113.1
  SAY #105494 /* ~With that clay golem page and 5,000 gold, I can improve your manual to summon clay golems.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66956 /* ~I don't have enough gold.~ */ GOTO 116
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66957 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",6)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("tome01",1)
DestroyItem("tome01")
TakePartyItemNum("tome02a",1)
DestroyItem("tome02a")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66959 /* ~No. What else?~ */ GOTO 116
END

IF ~~ THEN BEGIN 116 // from: 114.0 115.0 115.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
END

IF ~~ THEN BEGIN 117 // from: 13.22 123.22 127.22 129.22 133.22 137.22 141.22 145.22 149.22
  SAY #105495 /* ~Ach, now this is a real protection cloak.~ */
  IF ~  OR(2)
!PartyHasItem("scrl90")
!PartyHasItem("scrl7q")
~ THEN GOTO 118
  IF ~  PartyHasItem("scrl90")
PartyHasItem("scrl7q")
~ THEN GOTO 119
END

IF ~~ THEN BEGIN 118 // from: 117.0
  SAY #105496 /* ~With scrolls of invisibility and improved haste, this can be made even better.~ */
  IF ~~ THEN GOTO 120
END

IF ~~ THEN BEGIN 119 // from: 117.1
  SAY #105497 /* ~We can use those invisibility and improved haste scrolls to make this cloak even better. It's a tricky process and'll cost you 20,000 gold.~ */
  IF ~  PartyGoldLT(20000)
~ THEN REPLY #66938 /* ~I don't have that much gold.~ */ GOTO 120
  IF ~  PartyGoldGT(19999)
PartyHasItem("clck02")
!PartyHasItem("cdpp9")
!PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("clck02",1)
DestroyItem("clck02")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~  PartyGoldGT(19999)
PartyHasItem("cdpp9")
!PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("cdpp9",1)
DestroyItem("cdpp9")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~  PartyGoldGT(19999)
PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("c!pp9",1)
DestroyItem("c!pp9")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~~ THEN REPLY #66940 /* ~No. What else?~ */ GOTO 120
END

IF ~~ THEN BEGIN 120 // from: 118.0 119.0 119.4
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
END

IF ~~ THEN BEGIN 121 // from: 13.23 127.23 129.23 133.23 137.23 141.23 145.23 149.23
  SAY #59709 /* ~Hmmm... what's this? Some kind of scale from a beastie, aye?~ */
  IF ~~ THEN GOTO 122
END

IF ~~ THEN BEGIN 122 // from: 121.0
  SAY #105498 /* ~Aye, scales from a white wyrm. I can make a suit of armor from yon scales, if ye like, for only 5,000 gold.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66908 /* ~I don't have that much gold.~ */ GOTO 123
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66909 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",8)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("compon18",1)
DestroyItem("compon18")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66910 /* ~No. What else?~ */ GOTO 123
END

IF ~~ THEN BEGIN 123 // from: 122.0 122.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
END

IF ~~ THEN BEGIN 124 // from: 13.24 129.24 133.24 137.24 141.24 145.24 149.24
  SAY #105499 /* ~Now this is some fine elven chain, even by dwarven standards.~ */
  IF ~  !PartyHasItem("scrl6t")
~ THEN GOTO 125
  IF ~  PartyHasItem("scrl6t")
~ THEN GOTO 126
END

IF ~~ THEN BEGIN 125 // from: 124.0
  SAY #105500 /* ~But there's still some dwarven tricks they don't yet ken. With a scroll of protection from normal weapons, it'll take something magic to get past it.~ */
  IF ~~ THEN GOTO 127
END

IF ~~ THEN BEGIN 126 // from: 124.1
  SAY #105501 /* ~With that scroll of protection from normal weapons, we can enchant the armor to resist anything but a magical blade. It's not easy adding dwarven magic to elven chain, and it'll cost ye 40,000 gold.~ */
  IF ~  PartyGoldLT(40000)
~ THEN REPLY #66900 /* ~I don't have that much gold.~ */ GOTO 127
  IF ~  PartyGoldGT(39999)
~ THEN REPLY #66901 /* ~Sure, do it.~ */ DO ~SetGlobal("CDItems","ar0334",9)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(40000)
TakePartyItemNum("chan16",1)
DestroyItem("chan16")
TakePartyItemNum("scrl6t",1)
DestroyItem("scrl6t")
DestroyGold(40000)
~ GOTO 56
  IF ~~ THEN REPLY #66902 /* ~No. What else?~ */ GOTO 127
END

IF ~~ THEN BEGIN 127 // from: 125.0 126.0 126.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
END

IF ~~ THEN BEGIN 128 // from: 13.25 133.25 137.25 141.25 145.25 149.25
  SAY #105502 /* ~This is a gnomish sling. For 5,000 gold, I've got a few tricks up my sleeve that can make it more accurate.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66872 /* ~I don't have that much gold.~ */ GOTO 129
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66873 /* ~All right, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",10)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("slng08",1)
DestroyItem("slng08")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66874 /* ~No. What else?~ */ GOTO 129
END

IF ~~ THEN BEGIN 129 // from: 128.0 128.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
END

IF ~~ THEN BEGIN 130 // from: 13.26 137.26 141.26 145.26 149.26
  SAY #105503 /* ~What's this quiver here then? Aye, produces infinite magic arrows.~ */
  IF ~  !PartyHasItem("misc45")
~ THEN GOTO 131
  IF ~  PartyHasItem("misc45")
~ THEN GOTO 132
END

IF ~~ THEN BEGIN 131 // from: 130.0
  SAY #105504 /* ~If ye come across a rogue stone, we can improve those arrows even more.~ */
  IF ~~ THEN GOTO 133
END

IF ~~ THEN BEGIN 132 // from: 130.1
  SAY #105505 /* ~With this rogue stone and 10,000 gold I can enchant the arrows another level.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #66800 /* ~I don't have that much gold.~ */ GOTO 133
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #66801 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",11)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("quiver01",1)
DestroyItem("quiver01")
TakePartyItemNum("misc45",1)
DestroyItem("misc45")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #66802 /* ~No. What else?~ */ GOTO 133
END

IF ~~ THEN BEGIN 133 // from: 131.0 132.0 132.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
END

IF ~~ THEN BEGIN 134 // from: 13.27 141.27 145.27 149.27
  SAY #105506 /* ~Ach, now this is a fine sight! The Flail of Ages!~ */
  IF ~  !PartyHasItem("blun30a")
~ THEN GOTO 135
  IF ~  PartyHasItem("blun30a")
~ THEN GOTO 136
END

IF ~~ THEN BEGIN 135 // from: 134.0
  SAY #105507 /* ~There are rumors of even more heads for this flail. If you find any, I can add them.~ */
  IF ~~ THEN GOTO 137
END

IF ~~ THEN BEGIN 136 // from: 134.1
  SAY #105508 /* ~I see you've found another head for it, too. Looks like poison. For 5,000 gold I can attach it.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66768 /* ~I don't have that much money.~ */ GOTO 137
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66769 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",12)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("blun14",1)
DestroyItem("blun14")
TakePartyItemNum("blun30a",1)
DestroyItem("blun30a")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 137
END

IF ~~ THEN BEGIN 137 // from: 135.0 136.0 136.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 130
END

IF ~~ THEN BEGIN 138 // from: 13.28 145.28 149.28
  SAY #105509 /* ~Could this be... ? Aye, it's a detonating club.~ */
  IF ~  !PartyHasItem("ring02")
~ THEN GOTO 139
  IF ~  PartyHasItem("ring02")
~ THEN GOTO 140
END

IF ~~ THEN BEGIN 139 // from: 138.0
  SAY #105510 /* ~If ye find a ring of fire resistance, we can make that one flash club.~ */
  IF ~~ THEN GOTO 141
END

IF ~~ THEN BEGIN 140 // from: 138.1
  SAY #105511 /* ~For 5,000 gold I can combine this with your ring of fire resistance for an even better club.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66752 /* ~I don't have enough gold.~ */ GOTO 141
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66753 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",13)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("blun26",1)
DestroyItem("blun26")
TakePartyItemNum("ring02",1)
DestroyItem("ring02")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 141
END

IF ~~ THEN BEGIN 141 // from: 139.0 140.0 140.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 130
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 134
END

IF ~~ THEN BEGIN 142 // from: 13.29 149.29
  SAY #105512 /* ~Ah, now that looks like something of Ixil's.~ */
  IF ~  OR(2)
!PartyHasItem("dagg23")
!PartyHasItem("sper11")
~ THEN GOTO 143
  IF ~  PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 144
END

IF ~~ THEN BEGIN 143 // from: 142.0
  SAY #105513 /* ~This is part of a great spear of Ixil's. If you find the other half, I can complete the weapon.~ */
  IF ~~ THEN GOTO 145
END

IF ~~ THEN BEGIN 144 // from: 142.1
  SAY #105514 /* ~You've found both parts of Ixil's old spear. For 5,000 gold we can top Ixil's Nail with Ixil's Spike.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 145
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("CDItems","ar0334",14)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("dagg23",1)
DestroyItem("dagg23")
TakePartyItemNum("sper11",1)
DestroyItem("sper11")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 145
END

IF ~~ THEN BEGIN 145 // from: 143.0 144.0 144.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 130
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 134
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 138
END

IF ~~ THEN BEGIN 146 // from: 13.30
  SAY #105515 /* ~Ah, now this is a Dagger of the Star.~ */
  IF ~  NumItemsPartyLT("misc41",5)
~ THEN GOTO 147
  IF ~  NumItemsPartyGT("misc41",4)
~ THEN GOTO 148
END

IF ~~ THEN BEGIN 147 // from: 146.0
  SAY #105516 /* ~If we combine this with five star sapphires, we can increase its enchantment further.~ */
  IF ~~ THEN GOTO 149
END

IF ~~ THEN BEGIN 148 // from: 146.1
  SAY #105517 /* ~With five of those star sapphires and 5,000 gold we can make it even more effective.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66648 /* ~I don't have that much gold.~ */ GOTO 149
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66649 /* ~Sure, let's see what it does.~ */ DO ~SetGlobal("CDItems","ar0334",15)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("dagg21",1)
DestroyItem("dagg21")
TakePartyItemNum("misc41",5)
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 149
END

IF ~~ THEN BEGIN 149 // from: 147.0 148.0 148.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdhelm16")
~ THEN GOTO 61
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 67
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 76
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 80
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 84
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 88
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 92
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 96
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 98
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 102
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 106
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 110
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 113
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 117
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 121
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 124
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 128
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 130
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 134
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 138
  IF ~  OR(2)
PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 142
END
